/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_02 / hats / bbcfpucnvt

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 2e f4 20 3e 42 | 42 43 66 70 75 43 4e 56 |..... >B|BCfpuCNV|
|00000010| 54 20 20 20 2d 2d 20 20 | 46 50 55 20 6e 75 6d 62 |T   --  |FPU numb|
|00000020| 65 72 20 63 6f 6e 76 65 | 72 73 69 6f 6e 73 0d 00 |er conve|rsions..|
|00000030| 14 04 0d 00 1e 32 f4 20 | 42 42 43 20 42 41 53 49 |.....2. |BBC BASI|
|00000040| 43 20 56 20 74 6f 20 46 | 50 55 20 6d 65 6d 6f 72 |C V to F|PU memor|
|00000050| 79 20 66 6f 72 6d 61 74 | 20 63 6f 6e 76 65 72 73 |y format| convers|
|00000060| 69 6f 6e 73 0d 00 28 25 | f4 20 50 61 63 6b 65 64 |ions..(%|. Packed|
|00000070| 20 64 65 63 69 6d 61 6c | 20 70 72 69 6e 74 6f 75 | decimal| printou|
|00000080| 74 20 72 6f 75 74 69 6e | 65 0d 00 32 04 0d 00 3c |t routin|e..2...<|
|00000090| 17 f4 20 43 61 72 6c 20 | 50 2e 20 43 65 70 75 72 |.. Carl |P. Cepur|
|000000a0| 6e 65 65 6b 0d 00 46 15 | f4 20 32 36 20 43 6c 79 |neek..F.|. 26 Cly|
|000000b0| 64 65 20 53 74 72 65 65 | 74 0d 00 50 1a f4 20 50 |de Stree|t..P.. P|
|000000c0| 61 72 6b 73 69 64 65 2c | 20 20 53 2e 41 2e 20 35 |arkside,|  S.A. 5|
|000000d0| 30 36 33 0d 00 5a 0f f4 | 20 41 75 73 74 72 61 6c |063..Z..| Austral|
|000000e0| 69 61 0d 00 64 04 0d 00 | 6e 3f dd f2 63 76 74 5f |ia..d...|n?..cvt_|
|000000f0| 73 28 62 62 63 2c 61 64 | 72 29 20 20 20 20 20 20 |s(bbc,ad|r)      |
|00000100| 3a f4 20 66 72 6f 6d 20 | 42 42 43 20 72 65 61 6c |:. from |BBC real|
|00000110| 20 61 74 20 7c 62 62 63 | 20 74 6f 20 46 50 20 61 | at |bbc| to FP a|
|00000120| 74 20 61 64 72 0d 00 78 | 16 ea 20 65 78 70 25 2c |t adr..x|.. exp%,|
|00000130| 73 69 67 6e 25 2c 6d 61 | 6e 74 25 0d 00 82 27 21 |sign%,ma|nt%...'!|
|00000140| 61 64 72 3d 30 3a 61 64 | 72 21 34 3d 30 20 20 20 |adr=0:ad|r!4=0   |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 63 6c 65 |        |  :. cle|
|00000160| 61 72 0d 00 8c 15 e7 20 | 7c 62 62 63 3d 30 3a 21 |ar..... ||bbc=0:!|
|00000170| 61 64 72 3d 30 3a e1 0d | 00 96 37 65 78 70 25 3d |adr=0:..|..7exp%=|
|00000180| 28 62 62 63 3f 34 29 2d | 26 38 30 20 20 20 20 20 |(bbc?4)-|&80     |
|00000190| 20 20 20 20 20 20 3a f4 | 20 67 65 74 20 61 64 6a |      :.| get adj|
|000001a0| 75 73 74 65 64 20 65 78 | 70 6f 6e 65 6e 74 0d 00 |usted ex|ponent..|
|000001b0| a0 2c e7 65 78 70 25 3e | 30 20 65 78 70 25 3d 65 |.,.exp%>|0 exp%=e|
|000001c0| 78 70 25 2b 31 32 36 20 | 8b 20 65 78 70 25 3d 31 |xp%+126 |. exp%=1|
|000001d0| 32 36 2d 94 28 65 78 70 | 25 29 0d 00 aa 32 21 61 |26-.(exp|%)...2!a|
|000001e0| 64 72 3d 21 61 64 72 20 | 84 20 65 78 70 25 3c 3c |dr=!adr |. exp%<<|
|000001f0| 32 33 20 20 20 20 20 20 | 3a f4 20 73 65 74 20 65 |23      |:. set e|
|00000200| 78 70 6f 6e 65 6e 74 20 | 62 69 74 73 0d 00 b4 30 |xponent |bits...0|
|00000210| 73 69 67 6e 25 3d 21 62 | 62 63 20 80 20 26 38 30 |sign%=!b|bc . &80|
|00000220| 30 30 30 30 30 30 20 20 | 20 3a f4 20 69 73 6f 6c |000000  | :. isol|
|00000230| 61 74 65 20 73 69 67 6e | 20 62 69 74 0d 00 be 2d |ate sign| bit...-|
|00000240| 21 61 64 72 3d 21 61 64 | 72 20 84 20 73 69 67 6e |!adr=!ad|r . sign|
|00000250| 25 20 20 20 20 20 20 20 | 20 20 3a f4 20 73 65 74 |%       |  :. set|
|00000260| 20 73 69 67 6e 20 62 69 | 74 0d 00 c8 34 6d 61 6e | sign bi|t...4man|
|00000270| 74 25 3d 21 62 62 63 20 | 80 20 26 37 46 46 46 46 |t%=!bbc |. &7FFFF|
|00000280| 46 46 46 20 20 20 3a f4 | 20 63 6c 65 61 72 20 6e |FFF   :.| clear n|
|00000290| 65 67 20 62 69 74 20 69 | 66 20 73 65 74 0d 00 d2 |eg bit i|f set...|
|000002a0| 2d 21 61 64 72 3d 21 61 | 64 72 20 84 20 6d 61 6e |-!adr=!a|dr . man|
|000002b0| 74 25 3e 3e 3e 38 20 20 | 20 20 20 3a f4 20 73 65 |t%>>>8  |   :. se|
|000002c0| 74 20 6d 61 6e 74 69 73 | 73 61 0d 00 dc 05 e1 0d |t mantis|sa......|
|000002d0| 00 e6 04 0d 00 f0 35 dd | f2 63 76 74 5f 64 28 62 |......5.|.cvt_d(b|
|000002e0| 62 63 2c 61 64 72 29 20 | 20 20 20 20 20 3a f4 20 |bc,adr) |     :. |
|000002f0| 66 72 6f 6d 20 72 65 61 | 6c 20 61 74 20 61 64 64 |from rea|l at add|
|00000300| 72 65 73 73 20 62 62 63 | 0d 00 fa 16 ea 20 65 78 |ress bbc|..... ex|
|00000310| 70 25 2c 73 69 67 6e 25 | 2c 6d 61 6e 74 25 0d 01 |p%,sign%|,mant%..|
|00000320| 04 12 21 61 64 72 3d 30 | 3a 61 64 72 21 34 3d 30 |..!adr=0|:adr!4=0|
|00000330| 0d 01 0e 15 e7 20 7c 62 | 62 63 3d 30 3a 21 61 64 |..... |b|bc=0:!ad|
|00000340| 72 3d 30 3a e1 0d 01 18 | 3b 65 78 70 25 3d 28 62 |r=0:....|;exp%=(b|
|00000350| 62 63 3f 34 29 2d 26 38 | 30 20 20 20 20 20 20 20 |bc?4)-&8|0       |
|00000360| 20 20 20 20 3a f4 20 67 | 65 74 20 61 64 6a 75 73 |    :. g|et adjus|
|00000370| 74 65 64 20 62 62 63 20 | 65 78 70 6f 6e 65 6e 74 |ted bbc |exponent|
|00000380| 0d 01 22 2f e7 20 65 78 | 70 25 3e 30 20 65 78 70 |.."/. ex|p%>0 exp|
|00000390| 25 3d 65 78 70 25 2b 31 | 30 32 32 20 8b 20 65 78 |%=exp%+1|022 . ex|
|000003a0| 70 25 3d 31 30 32 32 2d | 94 28 65 78 70 25 29 0d |p%=1022-|.(exp%).|
|000003b0| 01 2c 18 21 61 64 72 3d | 21 61 64 72 20 84 20 65 |.,.!adr=|!adr . e|
|000003c0| 78 70 25 3c 3c 32 30 0d | 01 36 30 73 69 67 6e 25 |xp%<<20.|.60sign%|
|000003d0| 3d 21 62 62 63 20 80 20 | 26 38 30 30 30 30 30 30 |=!bbc . |&8000000|
|000003e0| 30 20 20 20 3a f4 20 69 | 73 6f 6c 61 74 65 20 73 |0   :. i|solate s|
|000003f0| 69 67 6e 20 62 69 74 0d | 01 40 2d 21 61 64 72 3d |ign bit.|.@-!adr=|
|00000400| 21 61 64 72 20 84 20 73 | 69 67 6e 25 20 20 20 20 |!adr . s|ign%    |
|00000410| 20 20 20 20 20 3a f4 20 | 73 65 74 20 73 69 67 6e |     :. |set sign|
|00000420| 20 62 69 74 0d 01 4a 32 | 6d 61 6e 74 25 3d 21 62 | bit..J2|mant%=!b|
|00000430| 62 63 20 80 20 26 37 46 | 46 46 46 46 46 46 20 20 |bc . &7F|FFFFFF  |
|00000440| 20 3a f4 20 63 6c 65 61 | 72 20 73 69 67 6e 20 62 | :. clea|r sign b|
|00000450| 69 74 20 73 65 74 0d 01 | 54 34 21 61 64 72 3d 21 |it set..|T4!adr=!|
|00000460| 61 64 72 20 84 20 6d 61 | 6e 74 25 3e 3e 3e 31 31 |adr . ma|nt%>>>11|
|00000470| 20 20 20 20 3a f4 20 73 | 65 74 20 6d 61 6e 74 69 |    :. s|et manti|
|00000480| 73 73 61 20 6d 73 62 69 | 74 73 0d 01 5e 35 6d 61 |ssa msbi|ts..^5ma|
|00000490| 6e 74 25 3d 6d 61 6e 74 | 25 3c 3c 32 31 20 20 20 |nt%=mant|%<<21   |
|000004a0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 73 68 69 66 |        | :. shif|
|000004b0| 74 20 6f 76 65 72 20 6c | 6f 77 20 62 69 74 73 0d |t over l|ow bits.|
|000004c0| 01 68 34 61 64 72 21 34 | 3d 61 64 72 21 34 20 84 |.h4adr!4|=adr!4 .|
|000004d0| 20 6d 61 6e 74 25 20 20 | 20 20 20 20 20 3a f4 20 | mant%  |     :. |
|000004e0| 73 65 74 20 6d 61 6e 74 | 69 73 73 61 20 6c 73 62 |set mant|issa lsb|
|000004f0| 69 74 73 0d 01 72 05 e1 | 0d 01 7c 04 0d 01 86 32 |its..r..|..|....2|
|00000500| dd f2 63 76 74 5f 65 28 | 62 62 63 2c 61 64 72 29 |..cvt_e(|bbc,adr)|
|00000510| 20 20 20 20 20 20 3a f4 | 20 66 72 6f 6d 20 42 42 |      :.| from BB|
|00000520| 43 20 72 65 61 6c 20 61 | 74 20 7c 62 62 63 0d 01 |C real a|t |bbc..|
|00000530| 90 16 ea 20 65 78 70 25 | 2c 73 69 67 6e 25 2c 6d |... exp%|,sign%,m|
|00000540| 61 6e 74 25 0d 01 9a 33 | 21 61 64 72 3d 30 3a 61 |ant%...3|!adr=0:a|
|00000550| 64 72 21 34 3d 30 3a 61 | 64 72 21 38 3d 30 20 20 |dr!4=0:a|dr!8=0  |
|00000560| 20 20 20 3a f4 20 63 6c | 65 61 72 20 64 65 73 74 |   :. cl|ear dest|
|00000570| 69 6e 61 74 69 6f 6e 0d | 01 a4 15 e7 20 7c 62 62 |ination.|.... |bb|
|00000580| 63 3d 30 3a 21 61 64 72 | 3d 30 3a e1 0d 01 ae 37 |c=0:!adr|=0:....7|
|00000590| 65 78 70 25 3d 28 62 62 | 63 3f 34 29 2d 26 38 30 |exp%=(bb|c?4)-&80|
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 67 65 |        |   :. ge|
|000005b0| 74 20 61 64 6a 75 73 74 | 65 64 20 65 78 70 6f 6e |t adjust|ed expon|
|000005c0| 65 6e 74 0d 01 b8 30 e7 | 65 78 70 25 3e 30 20 65 |ent...0.|exp%>0 e|
|000005d0| 78 70 25 3d 65 78 70 25 | 2b 31 36 33 38 32 20 8b |xp%=exp%|+16382 .|
|000005e0| 20 65 78 70 25 3d 31 36 | 33 38 32 2d 94 28 65 78 | exp%=16|382-.(ex|
|000005f0| 70 25 29 0d 01 c2 32 21 | 61 64 72 3d 21 61 64 72 |p%)...2!|adr=!adr|
|00000600| 20 84 20 65 78 70 25 20 | 20 20 20 20 20 20 20 20 | . exp% |        |
|00000610| 20 3a f4 20 73 65 74 20 | 65 78 70 6f 6e 65 6e 74 | :. set |exponent|
|00000620| 20 62 69 74 73 0d 01 cc | 30 73 69 67 6e 25 3d 21 | bits...|0sign%=!|
|00000630| 62 62 63 20 80 20 26 38 | 30 30 30 30 30 30 30 20 |bbc . &8|0000000 |
|00000640| 20 20 3a f4 20 69 73 6f | 6c 61 74 65 20 73 69 67 |  :. iso|late sig|
|00000650| 6e 20 62 69 74 0d 01 d6 | 2d 21 61 64 72 3d 21 61 |n bit...|-!adr=!a|
|00000660| 64 72 20 84 20 73 69 67 | 6e 25 20 20 20 20 20 20 |dr . sig|n%      |
|00000670| 20 20 20 3a f4 20 73 65 | 74 20 73 69 67 6e 20 62 |   :. se|t sign b|
|00000680| 69 74 0d 01 e0 30 6d 61 | 6e 74 25 3d 21 62 62 63 |it...0ma|nt%=!bbc|
|00000690| 20 84 20 26 38 30 30 30 | 30 30 30 30 20 20 20 20 | . &8000|0000    |
|000006a0| 3a f4 20 73 65 74 20 74 | 6f 70 20 62 69 74 20 28 |:. set t|op bit (|
|000006b0| 4a 29 0d 01 ea 2d 61 64 | 72 21 34 3d 61 64 72 21 |J)...-ad|r!4=adr!|
|000006c0| 34 20 84 20 6d 61 6e 74 | 25 20 20 20 20 20 20 20 |4 . mant|%       |
|000006d0| 3a f4 20 73 65 74 20 6d | 61 6e 74 69 73 73 61 0d |:. set m|antissa.|
|000006e0| 01 f4 05 e1 0d 01 fe 04 | 0d 02 08 19 dd a4 70 72 |........|......pr|
|000006f0| 69 6e 74 5f 70 61 63 6b | 65 64 28 62 61 73 65 25 |int_pack|ed(base%|
|00000700| 29 0d 02 12 1b ea 20 6d | 73 25 2c 6d 73 24 2c 65 |)..... m|s%,ms$,e|
|00000710| 73 25 2c 65 73 24 2c 6d | 25 2c 73 25 0d 02 1c 0d |s%,es$,m|%,s%....|
|00000720| 40 25 3d 26 30 30 30 30 | 31 0d 02 26 20 6d 25 3d |@%=&0000|1..& m%=|
|00000730| 28 21 62 61 73 65 25 20 | 80 20 26 38 30 30 30 30 |(!base% |. &80000|
|00000740| 30 30 30 29 3e 3e 3e 33 | 31 0d 02 30 1c e7 20 6d |000)>>>3|1..0.. m|
|00000750| 25 3d 30 20 6d 73 24 3d | 22 2b 22 20 8b 20 6d 73 |%=0 ms$=|"+" . ms|
|00000760| 24 3d 22 2d 22 0d 02 3a | 0a f1 20 6d 73 24 3b 0d |$="-"..:|.. ms$;.|
|00000770| 02 44 1c 6d 25 3d 28 21 | 62 61 73 65 25 20 80 20 |.D.m%=(!|base% . |
|00000780| 26 46 3c 3c 38 29 20 3e | 3e 3e 38 0d 02 4e 0d f1 |&F<<8) >|>>8..N..|
|00000790| 20 6d 25 3b 22 2e 22 3b | 0d 02 58 13 e3 20 73 25 | m%;".";|..X.. s%|
|000007a0| 3d 34 20 b8 20 30 20 88 | 20 2d 34 0d 02 62 1e 6d |=4 . 0 .| -4..b.m|
|000007b0| 25 3d 28 21 62 61 73 65 | 25 20 80 20 26 46 3c 3c |%=(!base|% . &F<<|
|000007c0| 73 25 29 20 3e 3e 3e 73 | 25 0d 02 6c 09 f1 20 6d |s%) >>>s|%..l.. m|
|000007d0| 25 3b 0d 02 76 05 ed 0d | 02 80 12 e3 20 77 25 3d |%;..v...|.... w%=|
|000007e0| 34 20 b8 20 38 20 88 20 | 34 0d 02 8a 14 e3 20 73 |4 . 8 . |4..... s|
|000007f0| 25 3d 32 38 20 b8 20 30 | 20 88 20 2d 34 0d 02 94 |%=28 . 0| . -4...|
|00000800| 20 6d 25 3d 28 77 25 21 | 62 61 73 65 25 20 80 20 | m%=(w%!|base% . |
|00000810| 26 46 3c 3c 73 25 29 20 | 3e 3e 3e 73 25 0d 02 9e |&F<<s%) |>>>s%...|
|00000820| 09 f1 20 6d 25 3b 0d 02 | a8 05 ed 0d 02 b2 05 ed |.. m%;..|........|
|00000830| 0d 02 bc 20 65 25 3d 28 | 21 62 61 73 65 25 20 80 |... e%=(|!base% .|
|00000840| 20 26 34 30 30 30 30 30 | 30 30 29 3e 3e 3e 33 30 | &400000|00)>>>30|
|00000850| 0d 02 c6 1c e7 20 65 25 | 3d 30 20 65 73 24 3d 22 |..... e%|=0 es$="|
|00000860| 2b 22 20 8b 20 65 73 24 | 3d 22 2d 22 0d 02 d0 0e |+" . es$|="-"....|
|00000870| f1 22 20 45 22 3b 65 73 | 24 3b 0d 02 da 15 e3 20 |." E";es|$;..... |
|00000880| 73 25 3d 32 34 20 b8 20 | 31 32 20 88 20 2d 34 0d |s%=24 . |12 . -4.|
|00000890| 02 e4 1e 6d 25 3d 28 21 | 62 61 73 65 25 20 80 20 |...m%=(!|base% . |
|000008a0| 26 46 3c 3c 73 25 29 20 | 3e 3e 3e 73 25 0d 02 ee |&F<<s%) |>>>s%...|
|000008b0| 09 f1 20 6d 25 3b 0d 02 | f8 05 ed 0d 03 02 07 3d |.. m%;..|.......=|
|000008c0| 22 22 0d ff             |                         |""..    |        |
+--------+-------------------------+-------------------------+--------+--------+